object fraSubstanceInfo: TfraSubstanceInfo
  Left = 0
  Top = 0
  Width = 249
  Height = 307
  TabOrder = 0
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 249
    Height = 61
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 266
    Width = 249
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
  end
  object PageControl: TPageControl
    Left = 0
    Top = 61
    Width = 249
    Height = 205
    ActivePage = TSInfo
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 2
    object TSInfo: TTabSheet
      Caption = ' '#1050#1088#1072#1090#1082#1072#1103' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103' '
      object InfoGrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 241
        Height = 174
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = ds_QSubstanceInfo
        EditActions = [geaCopyEh]
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghEnterAsTab, dghDialogFind, dghColumnResize, dghColumnMove]
        ReadOnly = True
        RowDetailPanel.Color = clBtnFace
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object TSNote: TTabSheet
      Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      ImageIndex = 1
      TabVisible = False
      object dbmNote: TDBMemo
        Left = 0
        Top = 0
        Width = 241
        Height = 174
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object QSubstanceInfo: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RFIELD_NAME as name,'
      '    RFIELD_VALUE as val'
      'FROM'
      '')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 124
    Top = 104
    poSQLINT64ToBCD = True
    object QSubstanceInfoNAME: TFIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086
      DisplayWidth = 16
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object QSubstanceInfoVAL: TFIBStringField
      DisplayLabel = #1047#1085#1072#1095#1077#1085#1080#1077
      FieldName = 'VAL'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object ds_QSubstanceInfo: TDataSource
    DataSet = QSubstanceInfo
    Left = 156
    Top = 104
  end
end
